copy function delphi

var
  Source, Target : string;

begin
  Source := '12345678';
  Target := copy(Source, 3, 4);
  ShowMessage('Target : '+Target);
end;